Option Explicit On
Option Strict On

Imports System.Collections
Imports nstl

Namespace nstl.test
    Friend Class UDgreater : Implements IBinaryFunction(Of Integer, Integer, Boolean)

        Public Function execute(ByVal lhs As Integer, ByVal rhs As Integer) As Boolean Implements IBinaryFunction(Of Integer, Integer, Boolean).Execute
            Return CType(lhs, IComparable).CompareTo(CType(rhs, IComparable)) > 0

        End Function
    End Class
End Namespace


